myvar_0 = GetPrimitiveParameter(0)
myvar_1 = GetPrimitiveParameter(1)
local myvar_2 = 0
	if (myvar_1 < 0) then
	myvar_2 = Inventory["new"](Inventory["kTypeGlobal"])
else
	myvar_2 = Inventory["new"](Inventory["kTypeLot"], myvar_1)
end
	if (myvar_2 ~= 0) then
	for loopvar1, loopvar2 in myvar_2["getSingularTokensByCategory"](myvar_2, gTokenCategories["VacationPartyInfo"]) do 
end
for loopvar1, loopvar2 in myvar_2["getSingularTokensByCategory"](myvar_2, gTokenCategories["VacationPartyInfo"]) do 
	if (myvar_0 == -1) then
	loopvar2["setFlag"](loopvar2, InventoryToken["kFlagMarkedForDeletion"])
else
	myvar_12 = loopvar2["getProperty"](loopvar2, gVacationParty["tokenInfo"]["VacationPartyID"])
		if (myvar_12 == myvar_0) then
		
myvar_12 = loopvar2["setFlag"]
		myvar_12(loopvar2, InventoryToken["kFlagMarkedForDeletion"])
	else
	end
	end
end
end
else
	myvar_2["removeTokensMarkedForDeletion"](myvar_2)
	local myvar_4 = True
	SetScriptReturnValue(myvar_4)
